EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**F ILE**1D**L IBADDX 
LL III] BBBBBBBB AAAAAA DODODDDD DDDDODDDD XX XX 
LL 1111 BBBBBBBB AAAAAA DDDDDDDD DDDDDDDD XX XX 
LL I] BB BB AA AA 0D DD DD DD XX KH 
LL II BB BB AA AA DD DD DD DD Xx XX 
LL I] BB BB AA AA 0D DD DD DD XX XX 
LL I] BB BB AA AA 0D DD DD DD XX XX 
LL I] BBBBBBBB AA DD DD OD DD XX 
LL I] AA AA 0D DD OD DD XX 
LL I] BB BB AAAAAAAAAA 0D DD OD DD XX XX 
LL I] BB BB AAAAAAAAAA 0D DD OD XX XX 
LL I] BB BB AA AA 0D DD OD DD Xx XX cove 
LL I] 8B BB AA AA 0D DD OD DD XxX XX cece 
LLLLLLLLLL III! BBBBBBBB AA AA DDDDDDDD DDDDDDDD XX XX cove 
LLLLLLLLLL III B888BBBB AA AA DDDDDDDD DDDDDDDD XX XX eoee 
LL IIIII1 SSSSSSSS 
LL IIIII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III! SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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6-SEP-1984 LIBRTL.SRCIJLIBADDX.MAR; 1 (1) | 
“TITLE LIBSADDX ~ Add infinite precision integers | 
SIDENT /1=006 ; File: LIBADDX.MAR Edit: PDG1006 | 


SRRAKHAEAAKEAAKAKAAAAAAEEAAAAAAAAAAAAAAAAAAAAAAAAAARARAAAAAAAAATAAAAEAAAAAAAEAEES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*@ ® 
:@ ® 
*@ ® 
:® ® 
:* ® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
if ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
j* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
*® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
s® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:# TRANSFERRED. “ 
°@ ® 
;® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:*® CORPORATION. * 
:* e 
:f ® 
: cs 
*@ ® 
*® tr 
: * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: General Utility Library 
ABSTRACT: 
Routines for 2 4 ea 0 ae and subtraction on 
e 


Make Jetautt gop count Lnggead of A value of 2 

makes it loop 3 times! SBL 1980 

Use rep’ ster temp in loop to allow for overlap. SBL 13-June-1980 
a gnath of zero or one. Recognize overf Ow. Recognize length 
=2tt an error. Made compare with (AP) unsigned. Make sure 
+ Be C bit is 0 before entering loop. PDG 9-Aug-81 
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a 
i! 
oo 
oo 
ow 
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oooo 
CoOooooocoo 
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44 integers of arbitrary length. 
44 ENVIRONMENT: User Mode, AST Reentrant 
| 
000 ~o 
0900 AUTHOR: Steven B. Lionel, CREATION DATE: 17-NOV-1978 
9 MODIFIED BY: | 
9 Ste en 8. B. yigret- : VERSION 01 
1-002 - i. hed | an error in a comment. JBS 14-DEC-78 | 
1-005 - Add **."’ PSECT directive, JBS 21-DEC-7 
1-004 - 
0 
0 
0 
0 
0 
0 
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‘ -SBTTL DECLARATIONS 
: ; INCLUDE FILES: 
ae 
6 6¢ 3 EXTERNAL DECLARATIONS: 
$0 64° -DSABL GBL ; Prevent undeclared symbols 
3 o : from being declared global 
00 89 EXTRN SS$_NORMAL ; Normal successful completion 
00 68 EXTRN SS$_INTOVF ; Integer overflow error 
4 $2 EXTRN LIBS_INVARG ; Invalid argument to function 
000 71 ; MACROS: 
000 ie 3 
000 7 
000 74; 
0000 75 ; EQUATED SYMBOLS: 
0000 £6 3 
00000004 0000 7 addend = 4 ; Address of addend array 
00000008 0000 78 augend = 8 ; Address of augend array 
0000000C 3258 o sum = 12 ; Address of sum (result) array 
00000004 44 81 minuend = 4 3; Address of minuend array 
06000008 0000 Hf subtrahend = ; Address of subtrahend array 
0000000C 44 o7 difference = 12 ; Address of difference array 
00000010 0000 85 Length = 16 3; Address of length in Longwords 
0000 86 
44 87 ; 
000 88 ; OWN STORAGE: 
0000 89 ; 
0000 90 
0000 91; 
44 8 3 PSECT DECLARATIONS: 
00000000 («94 * .PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
4 ¢ EXE, RD, NOWRT, LONG 
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-- -SBTTL LIBSADDX = Addition of infinite precision integers 
FUNCTIONAL DESCRIPTION: 


LIBSADDX performs addition of arbitrary length integers. The 
values to be added are located in acrays of longwords: the 
higher addresses holding the more significant parts of the values. 


The number of longwords to be added is given in the optional 
yo length’. If this is not specified, the default is 
» of quadword addition. 


The sum is placed in the prrey addressed by the third argument. 

Any two or all three of the first three arguments may be the same. 

If overflow occurs, the function value returned is SS$_INTOVF. 
CALLING SEQUENCE: 


| 
| 
status.wlc.v = LIBSADDX (addend.rl.ra, augend.ri.ra, sum.wl.ra 
C, Length.r ld) 


; INPUT PARAMETERS: 
addend =- The address of an array of longwords. The array 


contains a multiple precision integer, with the 
bits increasing in significance with increasing 


SOSOCCOCOOCOO OOOO OOOOOOOOSoOSoOoOO 
SOSSOSCSCOSOOSOOSOSOOOOOOOSOOSOOOOOSOOSOOOoOOoO 


GOOCCOCOCCOSOOSOSOSOSOCGCSOOSOOOSOOSOOOOOCOOBOCOOOOOOOOOOO 


addresses. 


; augend - The address of an array of longwords. The array 
; contains a multiple precision ateger with the 
3 bits increasing in significance with increasing 
; addresses. 
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Oo 


length = Optional. The length in longwords of the arrays to 
be added. The yt may be zero or greater. f 
not, error LIB$_IN 


; ARG is returned. 
IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 


sum - The address of an rer of longwords. The sum of the 
addend and augend is placed in this array. 


; IMPLICIT OUTPUTS: 
: 


FUNCTION VALUE: 
; COMPLETION CODES: 


SS$_NORMAL - Successful completion 

SS$_INTOVF - Integer overflow - sum is correct except for 
the sign bit which is lost, 

LIBS_INVARG - Invalid argument. Length is negative. 


OOoOoOOoOooOOoooOooooooo 
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, 
_— 
or 
fra 
ra 
xs 


SSS SSS SS SSS SSS SSS SSSSSSSSSSSSsssssssssssssssssssssssssssss So 


The sum is not changed. 
SIDE EFFECTS: 
NONE 


0004 ENTRY LIBSADDX, “M<R2> 3; Disable integer overflow 


: Set up RO as the count of lLongwords § geen If length 
; is not spec ified. use the default of 2 (quadword addition). 


i 
D 
° 
0 
0 
If length is negative, return error LIBS_INVARG. 
0 
50 01 7d 00 MOVQ #1, RO :; Default two longwords 
51 od7 00 DECL : Initialize index 
6c 04 91 00 CMPB #4, (AP) : Is length present? 
28 1A 00 BGTRU ; No, use default (C=0 if branch taken) 
10 Ag D5 00 TSTL Length<AP) 3; Is Length omitted? (C=0) 
2 13. 00 BEQL $ ; Yes, use default 
50 1068C oO Q0 MOVL @length(AP), RO ; RO contains tength (C=0 (unchanged) ) 
06 15 00 BLEQ 0$ ; Branch if negative or zero length 
50 Dd? 00 DECL RO ; Subtract one (C=0, since RO was > 0) 
ae | 4 BRB 2$ ; Jump into loop 
4 User gave negative or zero Length 
2— 13 00 0$: BEQL EXIT ; Do nothing if length = 0 
50 00000000'8F D0 00 MOVL #LIBS_INVARG, RO ; Error 
04 ; RET ; Return to caller 
0 3+ 
; ; Addition loop 
0 oe 
52 04 6C41 D0 00 1$: MOVL poroeie br d St Ee R2 :; Do addition in a temp because augend 
52 08 8C41 08 00 apwc @augend(AP)(R1], R2 3; and sum may overlap and because ADwC 
0c BC41 52 00 00 MOVL R2, asum(AP)CR14 3 is a two-operand instruction 
ED 51 50 Fe 3 2$: AOBLSS RO, R1, 18% 3; Loop till done 
0 3+ 
3 Now, add one more time, this time preserving the overflow flag 


MOVL Sougeng es R1 


08 BC41 00 , R2 
0c BC41 04 BC41 00 MOVL aad end(AP)(R1}. asum(AP)(R1) 
C Bc41 52 dB € = R2, 14 


DEBE EEE EF FWWIMIAIWIWIIPIPININDINININININD 4 2 9 OO I S| “DOO OCOCOCOCOOCOCOCOOCOOOOOOOOO 
SO™MDWOOOOOOL SF WOOD LM SP MVIVIVIVIMN ES OS DW DW WD ON BO BW NUPIPIPININININNMOOOOOOOOoO 
—|—DOODOOOOOSO00 00000 OO 0009 09 09 09 09 09 09 09 09 SIN NS SINS NN NIAAA AOA AOAAOAOOOMIUIVM «=— 
=O NA NE WIN SO OD NAME WIN $$ OOO NAME WIN @ O OD NAME WWN 0 OONOA UNE WN " OOONOUM 

ee 


| 

| 

0 | 

0 ADW @sum(AP) CR 

ae 

0 : Test for overflow and return with proper condition | 

,” 

93 1D ATEST: BVS AOVFL ; Integer overflow | 

50 = 00" BF S EXIT: ney cet #SS$_NORMAL, RO ; Return success 
0 | 
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‘. -SBTTL LIBSSUBX = Subtraction of infinite precision integers 
FUNCTIONAL DESCRIPTION: 
LIBSSUBX performs subtraction of arbitrary length integers. The 


values to be subtracted are located in arrays of longwords: the 
higher addresses being the higher precision parts of the values. 


&=. 


The number of longwords to be subtracted is given in the optional 
proment “Length. If this is not specified. the default is 
+ OF Quadword subtraction. 


Any two or all three of the first three arguments mex be the same. 
If overflow occurs, the function value returned is SS$_INTOVF. 
CALLING SEQUENCE: 


status.wlc.v = LIBSSUBX (minuend.rl.ra, subtrahend.rl.ra, 
difference.wl.ra C, length.rlJ) 


WAAL AIA I OOO OPORONOnonond | 2 


INPUT PARAMETERS: 


minuend - The address of an array of longwords. The array 
contains a multiple precision integer, with the 
bits increasing in significance with increasing 
addresses. 


subtrahend - The address of an array of longwords. The array 
contains a multiple precision integer, with the 
bits increasing in significance with increasing 
addresses. 


rtd 4b-4b 4b 4b Ab db db ab Ah db ah ah db ah db ah ab ah ab ah al ah ab al eal al vabal al al eal wal 


Length - Optional. The length in longwords of the arrays to 
be subtracted. The length must be greater than one. If 
not, error LIBS_INVARG is returned. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
difference - The address of an array of longwords. The subtrahend is 
subtracted from the minuend, and the result is placed 
in this array. 
IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


SS$_NORMAL - Successful completion 


The difference is placed in the array addressed by the third argument. 


SSS" INTOVF - Integer overflow - difference is correct except for 
the sign bit which is lost. 
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N 7 
precision integer 15-SE 


52 04 B8C41 00 1$: MOVL @minuend(AP)CR1], R2 Do subtraction in a temp 
because subtrahend and 


52 08 BC41 09 


® 


SBWC @subtrahend(AP)CR1), R difference may overlap and 
s 


0c Bc41 52 00 MOVL  R2, adifference(AP)(R1 because SBW a 2 operand 


instruction 
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6 if 3 LIBS_INVARG - Invalid argument. Length is negative. 
t : The difference is not changed. | 
3 ; SIDE EFFECTS: | 
36 iS ; NONE 
? 78 ; 
Be gp 
0004 03 ENTRY LIBSSUBY, “M<R2> ; Disable integer overflow 
+ | 
82 ® 3 Set up RO as the count of longwords remaining. If length 
05 $3 is not epeg ified. use the default of 2 (quadword subtraction). 
bpe ‘ § ; If length is negative, return error LIBS_INVARG. 
0058 388 * 
50 01 7d 005 89 mMOVa #1, RO 3; Default two longwords | 
51 07 0058 i DECL ; Initialize index | 
6C¢ 04 91 005D 91 CMPB #4, (AP) 3; Is length present? 
28 1A 0060 3 BGTRU ; No, use default (C=0 if branch taken) 
10 AC DS Bpe8 9 TSTL Length (AP) ; Is Length omitted? (C=0) 
23 13 006 94 BEQL : Yes, use default 
50 108C D0 0067 95 MOVL @length(AP), RO ; RO contains length (C=0 tunghonged?) 
04 15 0068 96 BLEQ 0$ ; Branch if negative or zero length 
50 d7 006d 97 DECL RO ; Subtract one (C=0, since RO was > 0) | 
19 #171 4 38 BRB 2$ ; Jump into loop 
bao, 89 3 User gave negative or zero length 
D8 13 0071 fi OS: BEQL EXIT ; Do nothing if length = 0 
50 00000000'8F 00 0073 0 MOVL #LIBS_INVARG, RO ; Error 
04 OQO7A 04 RET 3; Return to caller 
0078 306 3+ 
0078 7; Subtraction loop 
0078 8 
0078 9 
0078 0 
a4 1 | 

aoe if 
—ED 51 50 F2 e é 2$: AOBLSS RO, R1, 1$ Loop till done | 
O8E 3¢ 
0 4 8 : Now subtract one final time, this time preserving overflow 
E : | 
08 BC41 dO ? MOVL @subtrahend(AP)(R1), R2 | 
Oc BC41 04 BC41 44 b ¢ MOVL a@minuend(AP)CR1 Peli serencetapi tats | 
0c BC41 52 D 9A ; SBWC 3=s&R2, adif ference (AP)(R1) 
OF 5 3+ 
a § 5 Test for overflow and return with proper condition 

AF 1D 8 9F 8° BVS AOVF* ; Test for overflow 


50 00°8F Ra a MOVZBL #SS$_NORMAL, RO ; Return success 
4 A RET 
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Symbol table 


AX/VM 


eS 3:46:37 S 
LIBRTL. 


Macro 
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ADDEND = 9% 

AOVFL 9 R o1 
ATEST 49 R 1 
UGEND = 8 
DIFFERENCE = ¢ 

4B R 01 

LENGTH = : 1 

LIBSADDX 9 RG 91 
LIBSSUBX 0 6 RG 1 
LIBS_ INVARG eereeeee Xx 00 
MINUEND = 00000004 
SS$_INTOVF etererer xX 09 
SS$_NORMAL eteerere xX 

SUB TRAHEND = 00000008 

SUM = 0000000C 


PSECT name 


Page faults 


Initialization 29 
Command processing 117 


Pass 1 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 
Cross-reference output ! 
Assembler run totals 29 


3941 bytes ( 


The working get Limit was 750 pages. 
There were 10 


Macro Library name 


_$255$DUA28: (SYSLIBISTARLET.MLB; 2 


Allocation 


00000000 
000000A6 


0 GETS were required to define 0 macros. 


PSECT No. Attributes 


( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
( 166.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


CPU Tine Elapsed Tine 
00:00:00..05 00: 9:01.91 
00:00:00.35 00:00:02.30 
FS 88:8: 85 
80:09; 0.40 00:00:08.5 
00:00:00:01 90:0:0 *40 
00:00: °00 00: 0:00.01 
00: 9:00.90 0:00:00.00 
00:00:01. 00:00:11.29 


pages) of virtual memory were used to buffer the intermediate cod 
pages of symbol table space allocated to hold 15 
333 source Lines were read in Pass 1, producing 14 object records in Pass 2 
0 pages of virtual memory were used to define 


e. 
non-local and 6 local symbols. 
macros. ; 


wee see secre rece eee ee econ ome ean = $+ 
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Dx 
Macro Run Statistics 


L18S 
VAX=1 
There were no errors, warnings or information messages. 

MACRO/ENABLE=SUPPRESS1ON/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBADDX/OBJ=OBJ$:LIBADDX MSRC$:LIBADDX/UPDATE=(ENH$:LIBADDX) 
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PMENT CORPORATION | 
AND PROPRIETARY 
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